home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / NEW / Q-Quantum Link / (n)q2.d64 / bin-hex-dec (.txt) < prev    next >
Commodore BASIC  |  2007-02-25  |  8KB  |  308 lines
  1. 10 REM "[195][194][205] 64 [194]INAR/[194][195][196]/[200]EX [212]UTOR VERSION 2.02
  2. 15 V[178]53280:Z0%[178][194](V):Z1%[178][194](V[170]1):Z2%[178][194](646)
  3. 20 Z3%[178]([194](V[171]8)[175]7)[176][194](657):[151]V,6:[151]V[170]1,15:[153]"LOAD"[199](8)[199](14)
  4. 25 [153][163]14)"   STOPNEWNEWNEWNEWNEWNEWNEWRND":[153][163]14)"  STOPCOS   STOP    WAITGET
  5. 30 PRINTTAB(14)"  [144]    [144][162][162][162][162][146][190]":PRINTTAB(14)"      ":PRINTTAB(14)"      "
  6. 35 PRINTTAB(14)"  [144]       [146][144][162]":PRINTTAB(14)"  [144][187]      [144] [188]":PRINTTAB(17)"[144][162][162]  [144][162][187]  "
  7. 40 PRINTTAB(19)"   [146] [144]  ":PRINTTAB(19)"  [146]  [144]  ":PRINTTAB(16)"[144][162][162][162]  [146][144][162][190]  "
  8. 45 PRINTTAB(16)"[144]        [172]":PRINTTAB(16)"[144][162][162][162][162][162][162][162][162]":PRINTTAB(7)"[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]
  9. 50 [153][163]7)" 64 PEEKINARY/PEEKLENSTR$/LEFT$EX (null)UTOR "
  10. 55 [153][163]7)"NEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEW"
  11. 65 [153][163]8)"POKE((null)RESS (null)(null)ATNLENVALWAITPOKE TO CONTINUE)
  12. 70 GETA$:IFA$<>" "THEN 70
  13. 140 DIM A$(20)
  14. 150 A$="0123456789ABCDEF":CD$="
  15. 160 [129]X[178]0[164]15:A$(X)[178][202](A$,X[170]1,1):[130]:X[178]0
  16. 165 [151]VC,9:[151]VC[170]1,15
  17. 170 [153]"LOAD":A[178]0
  18. 180 [153][163]17)"(null)ENUCMDCMDCMDCMDUSRUSRUSRUSR"
  19. 190 [153][163]9)"STR$EC,PEEKIN & PEEKLENSTR$.....POKEPEEK"
  20. 200 [153][163]9)"STR$EC,PEEKIN & LEFT$EX.....POKELEFT$"
  21. 210 [153][163]9)"VALXERCISES.........POKEVAL"
  22. 215 [153][163]9)"VALXIT..............POKE(null)"
  23. 218 [153][163]7)"POSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOS
  24. 220 PRINTTAB(7)" [212]YPE IN [195]HOICE [210]EQUIRED [155][146]<"
  25. 222 PRINTTAB(7)"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][145][144]";
  26. 224 VM=1024:VX=VM+999:CM=55296:CX=CM+999
  27. 230 POKEVM,240:POKECM,8:POKEVX,253:POKECX,8
  28. 240 FORX=1TO23:POKEVM+40*X,221:POKECM+40*X,8:POKEVX-40*X,221:POKECX-40*X,8
  29. 250 NEXT:POKEVM+39,238:POKECM+39,8:POKEVX-39,237:POKECX-39,8:FORX=1TO38
  30. 260 POKEVM+39-X,192:POKECM+39-X,8:POKEVX-39+X,192:POKECX-39+X,8:NEXT
  31. 270 GOSUB3200:B$=Z$
  32. 278 POKEVC,9:POKE646,6
  33. 280 IFB$="H"ANDA=1THEN370
  34. 290 IFB$="B"ANDA=1THEN340
  35. 300 IFB$="H"ORB$="B"THEN420
  36. 305 POKEVC,10:POKE646,2
  37. 310 IFB$="E"THEN1860
  38. 315 IFB$<>"X"THEN270
  39. 317 POKEV,Z0%:POKEV+1,Z1%:POKEV+2,Z2%:POKEV-8,PEEK(V-8)AND248ORZ3%AND7:POKE657,Z3%AND128
  40. 319 PRINT"[147]";:END
  41. 330 GOSUB910:GOSUB1510:GOSUB3400
  42. 340 GOSUB1010:GOSUB1620:GOSUB1310:GOSUB1760
  43. 350 GOTO380
  44. 360 GOSUB910:GOSUB1110:GOSUB3400
  45. 370 GOSUB1010:GOSUB1210:GOSUB1310:GOSUB1410
  46. 380 POKE198,0
  47. 390 GOSUB3200:A$=Z$:IFA$=CHR$(13)THEN150
  48. 410 GOTO280
  49. 420 PRINT"[147]":X$="255":IFB$="B"THENX$="99"
  50. 430 PRINT"  [193]T WHAT VALUE (1 TO ";X$;")[146] DO YOU WISH"
  51. 440 INPUT "                TO START";ZZ
  52. 450 IFZZ=0THEN430
  53. 460 IFZZ>255THEN540
  54. 470 IFZZ>99ANDB$="B"THEN540
  55. 480 D=ZZ-1:F=3:GOSUB630:GOSUB2030
  56. 490 GOSUB2200:FORX=1TO8:C(X)=B(X):NEXT
  57. 500 GOSUB2110
  58. 510 IFB$="B"THEN330
  59. 520 IFB$="H"THEN360
  60. 540 PRINT"[206]UMBER TOO LARGE - PLEASE ";
  61. 550 PRINT"RE-ENTER.":GOTO430
  62. 560 PRINTLEFT$(CD$,11)TAB(15)"SORRY, WRONG!
  63. 570 [153][163]15)"PLEASE TRY AGAIN"
  64. 580 [129]X[178]1[164]2000:[130]:[137]1980
  65. 590 [153][200](CD$,11)[163]8)"WELL DONE! THATS RIGHT!
  66. 600 PRINT"          NOW TRY ANOTHER ONE.
  67. 610 [129]X[178]1[164]2000:[130]:[137]1910
  68. 620 [143]** D TO D$ ROUTINE **
  69. 630 D$[178][196](D)
  70. 640 D$[178][201](D$,[195](D$)[171]1)
  71. 650 D$[178][201]("00000000"[170]D$,F)
  72. 660 [129]X[178]F[164]1[169][171]1
  73. 670 D(X)[178][197]([202](D$,X,1))
  74. 680 [130]:[142]
  75. 690 [151]VM[170]647,111:[151]VM[170]648,111:[151]VM[170]649,111
  76. 700 [151]VM[170]767,76
  77. 710 [151]VM[170]768,111:[151]VM[170]769,111:[151]VM[170]686,103
  78. 720 [151]VM[170]687,79
  79. 730 [151]VM[170]726,103:[151]VM[170]727,101:[151]VM[170]766,103
  80. 740 [151]VM[170]809,119
  81. 750 [151]VM[170]688,119:[151]VM[170]689,119:[151]VM[170]807,119
  82. 760 [151]VM[170]808,119
  83. 770 [129]X[178]1[164]10:[151]VM[170]728,131:[129]XX[178]1[164]255:[130]
  84. 780 [151]VM[170]728,3
  85. 790 [129]XX[178]1[164]255:[130]:[130]:[142]
  86. 800 [151]VM[170]407,111:[151]VM[170]408,111:[151]VM[170]409,111
  87. 810 [151]VM[170]527,76
  88. 820 [151]VM[170]528,111:[151]VM[170]529,111:[151]VM[170]446,103
  89. 830 [151]VM[170]447,79
  90. 840 [151]VM[170]486,103:[151]VM[170]487,101:[151]VM[170]526,103
  91. 850 [151]VM[170]569,119
  92. 860 [151]VM[170]448,119:[151]VM[170]449,119:[151]VM[170]567,119
  93. 870 [151]VM[170]568,119
  94. 880 [129]X[178]1[164]10:[151]VM[170]488,131:[129]XX[178]1[164]255:[130]
  95. 890 [151]VM[170]488,3
  96. 900 [129]XX[178]1[164]255:[130]:[130]:[142]
  97. 910 [153]"LOADRETURN          (null)USRUSR(null)USRUSR(null)USRUSRFN":A[178]1
  98. 920 [153]"  DEC     FN CLOSEFN CLOSEFN CLOSEFN
  99. 930 PRINTTAB(6)"    [204][175][175][204][175][175][204][175][175][165]
  100. 940 [153][163]6)"    (null)USRUSR(null)USRUSR(null)USRUSR(null)USRUSR(null)USRUSR(null)USRUSR(null)USRUSR(null)USRUSRFN"
  101. 950 [153]"  BIN     FN CLOSEFN CLOSEFN CLOSEFN CLOSEFN CLOSEFN CLOSEFN CLOSEFN CLOSEFN"
  102. 960 [153][163]6)"    (null)ANDAND(null)ANDAND(null)ANDAND(null)ANDAND(null)ANDAND(null)ANDAND(null)ANDAND(null)ANDANDFN"
  103. 961 [153][163]6)"    128 64 32 16 8  4  2  1  "
  104. 970 [142]
  105. 1000 [143]** ROUTINE #2 **
  106. 1010 [129]X[178]3[164]1[169][171]1
  107. 1020 [139]D(X)[178]9[167]D(X)[178]0:[130]
  108. 1030 [139]X[178]0[167]1050
  109. 1040 D(X)[178]D(X)[170]1:X[178]0:[130]
  110. 1050 [129]X[178]8[164]1[169][171]1
  111. 1060 [139]B(X)[178]1[167]B(X)[178]0:[130]
  112. 1070 [139]X[178]0[167][142]
  113. 1080 B(X)[178]B(X)[170]1:X[178]0:[130]
  114. 1090 [142]
  115. 1100 [143]** ROUTINE #3 **
  116. 1110 [153]"RETURN          (null)USRUSR(null)USRUSR(null)USRUSR(null)USRUSRFN
  117. 1120 PRINT"  HEX     [165] [160][165] [160][165] [160][165] [160][165][160][160]
  118. 1130 [153][163]6)"    (null)ANDAND(null)ANDAND(null)ANDAND(null)ANDANDFN
  119. 1140 RETURN
  120. 1200 REM** ROUTINE #4 **
  121. 1210 FORX=4TO1STEP-1
  122. 1220 IFH(X)=15THENH$(X)="0":H(X)=0:NEXT
  123. 1230 IFX=0THENRETURN
  124. 1240 H(X)=H(X)+1:H$(X)=A$(H(X)+1):X=0:NEXT
  125. 1250 RETURN
  126. 1300 REM** ROUTINE #5 **
  127. 1310 FORX=1TO3
  128. 1320 POKE(VM+248+(X*3)),D(X)+48:NEXT
  129. 1330 FORX=1TO8
  130. 1340 POKEVM+488+X*3,B(X)+48:NEXT
  131. 1350 IFD(1)=2ANDD(2)=5ANDD(3)=6THENGOSUB800
  132. 1360 RETURN
  133. 1400 REM** ROUTINE #6 **
  134. 1410 FORX=1TO4
  135. 1420 IFH(X)>9THEN1460
  136. 1430 POKEVM+728+X*3,H(X)+48
  137. 1440 NEXT
  138. 1450 GOTO1310
  139. 1460 POKEVM+728+X*3,H(X)-9:NEXT
  140. 1470 RETURN
  141. 1500 REM** ROUTINE #7 **
  142. 1510 PRINT"[142]";
  143. 1520 PRINTTAB(6)"[142]    [207][183][183][207][183][183][207][183][183][207][183][208][207][183][183][207][183][183][207][183][183][207][183][183][165]"
  144. 1530 PRINT"  BCD     [165] [160][165] [160][165] [160][165] [167][165] [160][165] [160][165] [160][165] [160][165]"
  145. 1540 PRINTTAB(6)"    [204][175][175][204][175][175][204][175][175][204][175][186][204][175][175][204][175][175][204][175][175][204][175][175][165]"
  146. 1550 RETURN
  147. 1610 REM** ROUTINE #8 **
  148. 1620 IFC(5)=1ANDC(8)=1THENC(5)=0:C(8)=0:GOTO1680
  149. 1630 FORX=8TO4STEP-1
  150. 1640 IFC(X)=1THENC(X)=0:NEXT
  151. 1650 IFX<5THENRETURN
  152. 1660 C(X)=C(X)+1:X=0:NEXT:RETURN
  153. 1670 GOTO1690
  154. 1680 IFC(1)=1ANDC(4)=1THEN1740
  155. 1690 FORX=4TO0STEP-1
  156. 1700 IFC(X)=1THENC(X)=0:NEXT
  157. 1710 IFX=0THENRETURN
  158. 1720 C(X)=C(X)+1:X=0:NEXT:RETURN
  159. 1730 RETURN
  160. 1740 FORX=1TO8:C(X)=0:NEXT:RETURN
  161. 1750 REM** ROUTINE #9 **
  162. 1760 FORX=1TO8
  163. 1770 POKEVM+728+X*3,C(X)+48:NEXT
  164. 1780 IFD(1)=1ANDD(2)=0ANDD(3)=0THENGOSUB690
  165. 1790 RETURN
  166. 1850 REM** ROUTINE #10 **
  167. 1860 PRINTLEFT$(CD$,10)
  168. 1870 PRINTTAB(5)"[196]EC TO [200]EX..1  [200]EX TO [196]EC..4"
  169. 1880 PRINTTAB(5)"[196]EC TO [194]IN..2  [194]IN TO [196]EC..5"
  170. 1890 PRINTTAB(5)"[196]EC TO [194][195][196]..3  [194][195][196] TO [196]EC..6"
  171. 1895 PRINTTAB(9)"[197]XIT..............[216]";
  172. 1900 GOSUB3200:B$=Z$
  173. 1905 IFB$="X"THEN160
  174. 1910 D=VAL(B$):IFD=0THEN1900
  175. 1920 IFD=1ORD=4THENF=4-(D>3):D=1024
  176. 1930 IFD=2ORD=5THENF=8+(D>3):D=255
  177. 1940 IFD=3ORD=6THENF=8+(D>3):D=99
  178. 1960 IFD<10THEN1900
  179. 1970 D=INT(D*(RND(0)))
  180. 1980 ONVAL(B$)GOTO2000,2010,2020,2480,2610,2680
  181. 1990 GOTO1900
  182. 2000 GOSUB2030:GOTO2310
  183. 2010 GOSUB2110:GOTO2310
  184. 2020 GOSUB2200:GOTO2310
  185. 2030 H(1)=INT(D/4096)
  186. 2040 H(2)=INT((D-H(1)*4096)/256)
  187. 2050 H(3)=INT((D-(H(1)*4096)-(H(2)*256))/16)
  188. 2060 H(4)=D-(H(1)*4096)-(H(2)*256)-(H(3)*16)
  189. 2070 H$(1)=A$(H(1)):H$(2)=A$(H(2))
  190. 2080 H$(3)=A$(H(3)):H$(4)=A$(H(4))
  191. 2090 H$(5)=H$(1)+H$(2)+H$(3)+H$(4)
  192. 2100 RETURN
  193. 2110 B(1)=INT(D/128):D1=B(1)*128
  194. 2120 B(2)=INT((D-D1)/64):D2=D1+B(2)*64
  195. 2130 B(3)=INT((D-D2)/32):D3=D2+B(3)*32
  196. 2140 B(4)=INT((D-D3)/16):D4=D3+B(4)*16
  197. 2150 B(5)=INT((D-D4)/8):D5=D4+B(5)*8
  198. 2160 B(6)=INT((D-D5)/4):D6=D5+B(6)*4
  199. 2170 B(7)=INT((D-D6)/2):D7=D6+B(7)*2
  200. 2180 B(8)=INT((D-D7)):D8=D6+B(8)
  201. 2190 RETURN
  202. 2200 D1=INT(D/10)
  203. 2210 D2=D-D1*10
  204. 2220 B(1)=INT(D1/8):E1=B(1)*8
  205. 2230 B(2)=INT((D1-E1)/4):E2=E1+B(2)*4
  206. 2240 B(3)=INT((D1-E2)/2):E3=E2+B(3)*2
  207. 2250 B(4)=INT(D1-E3)
  208. 2260 B(5)=INT(D2/8):E5=B(5)*8
  209. 2270 B(6)=INT((D2-E5)/4):E6=E5+B(6)*4
  210. 2280 B(7)=INT((D2-E6)/2):E7=E6+B(7)*2
  211. 2290 B(8)=INT(D2-E7)
  212. 2300 RETURN
  213. 2310 GOSUB2320:GOTO2370
  214. 2320 PRINT"[147]";
  215. 2330 PRINTTAB(6)"[142]    [207][183][183][207][183][183][207][183][183][207][183][183][207][183][183][165]":A=1
  216. 2340 PRINT" DEC      [165][160][160][165][160][160][165][160][160][165][160][160][165][160][160][165]
  217. 2350 [153][163]6)"    (null)ANDAND(null)ANDAND(null)ANDAND(null)ANDAND(null)ANDANDFN
  218. 2360 GOSUB3300:RETURN
  219. 2370 ZF=F:F=5:GOSUB630:F=ZF
  220. 2380 FORX=5TO1STEP-1:POKEVM+248+(X*3),D(X)+48
  221. 2390 NEXT
  222. 2400 GOSUB2750
  223. 2410 IFVAL(B$)<>1THEN 560
  224. 2420 FORX=0TO3
  225. 2430 IFC$(X)<>H$(X+1)THEN560
  226. 2440 NEXT:GOTO590
  227. 2460 FORX=1TO8:IFVAL(C$(X-1))<>B(X)THEN560
  228. 2470 NEXT:GOTO590
  229. 2480 PRINT"[147]";
  230. 2490 GOSUB3050
  231. 2500 F=5:GOSUB630:GOSUB2030
  232. 2510 FORX=1TO4
  233. 2520 FORY=0TO15:IFH$(X)<>A$(Y)THENNEXT:GOTO2540
  234. 2530 H(X)=Y:Y=15:NEXT:Y=H(X)
  235. 2540 IFY<10THENY=Y+48:GOTO2560
  236. 2550 IFY>9THENY=Y-9
  237. 2560 H(X)=Y
  238. 2570 POKEVM+248+(X*3),H(X):NEXT:GOSUB2750
  239. 2580 FORX=1TO5
  240. 2590 IFVAL(C$(X-1))<>D(X)THEN560
  241. 2600 NEXT:GOTO590
  242. 2610 PRINT"[147]";
  243. 2620 GOSUB3100
  244. 2630 F=5:GOSUB630:GOSUB2110
  245. 2640 FORX=1TO8
  246. 2650 B1(X)=B(X):B1(X)=B1(X)+48
  247. 2660 POKEVM+248+(X*3),B1(X):NEXT
  248. 2670 GOSUB2750:GOTO2580
  249. 2680 PRINT"[147]";
  250. 2690 GOSUB1520
  251. 2700 F=5:GOSUB630:GOSUB2200
  252. 2710 FORX=1TO8
  253. 2720 B1(X)=B(X):B1(X)=B1(X)+48
  254. 2730 POKEVM+248+(X*3),B1(X):NEXT
  255. 2740 GOSUB2750:GOTO2580
  256. 2750 GOSUB3010
  257. 2760 Y=0
  258. 2770 FORX=1TO35:GETC$(Y):IFC$(Y)=""THENNEXT
  259. 2780 POKEVM+611+(Y*3),160
  260. 2790 IFC$(Y)<>""THEN2840
  261. 2800 FORX=1TO35:GETC$(Y):IFC$(Y)=""THENNEXT
  262. 2810 IFC$(Y)<>""THEN2840
  263. 2820 POKEVM+611+(Y*3),32:POKEVM+614+(Y*3),32
  264. 2830 GOTO2770
  265. 2840 IFC$(Y)=CHR$(13)THEN160
  266. 2850 IFC$(Y)=" "ANDY>0THENY=Y-1:GOTO2800
  267. 2860 ONVAL(B$)GOTO2900,2930,2930,2870,2870,2870
  268. 2870 IFC$(Y)="0"THEN2950
  269. 2880 IFVAL(C$(Y))=0THEN2990
  270. 2890 GOTO2950
  271. 2900 FORX=0TO15:IFC$(Y)=A$(X)THENX=20
  272. 2910 NEXT:IFX<20THEN2990
  273. 2920 GOTO2950
  274. 2930 IFC$(Y)="1"ORC$(Y)="0"THEN2950
  275. 2940 GOTO2990
  276. 2950 Y=Y+1:PRINTLEFT$(CD$,16)TAB(8);
  277. 2960 FORX=1TOY*3:PRINT"";:NEXT:PRINTC$(Y-1)
  278. 2970 IFY=FTHENRETURN
  279. 2980 L=VM+611+(Y*3)
  280. 2990 IFPEEK(L)>127THENPOKEL,PEEK(L)-128
  281. 3000 GOTO2770
  282. 3010 PRINTLEFT$(CD$,15);
  283. 3020 IFB$="2"THEN3100
  284. 3030 IFB$="3"THEN3140
  285. 3040 IFB$>"3"THEN3090
  286. 3050 PRINTTAB(6)"[142]    [207][183][183][207][183][183][207][183][183][207][183][183][165]
  287. 3060 [153]" HEX      FN  FNCLOSECLOSEFNCLOSECLOSEFNCLOSECLOSEFNCLOSE
  288. 3070 PRINTTAB(6)"    [204][175][175][204][175][175][204][175][175][204][175][175][165]
  289. 3080 [142]
  290. 3090 [141]2330:[142]
  291. 3100 [153][163]6)"RETURN    (null)USRUSR(null)USRUSR(null)USRUSR(null)USRUSR(null)USRUSR(null)USRUSR(null)USRUSR(null)USRUSRFN"
  292. 3110 [153]"  BIN     FN CLOSEFN CLOSEFN CLOSEFN CLOSEFN CLOSEFN CLOSEFN CLOSEFN CLOSEFN"
  293. 3120 [153][163]6)"    (null)ANDAND(null)ANDAND(null)ANDAND(null)ANDAND(null)ANDAND(null)ANDAND(null)ANDAND(null)ANDANDFN"
  294. 3130 [142]
  295. 3140 [141]1520:[142]
  296. 3200 [151]198,0:[151]204,0
  297. 3210 [146]198,1:[161]Z$
  298. 3220 [146]207,1,1:[151]204,1
  299. 3230 Z$[178][199]([198](Z$[170][199](0))[175]127):[142]
  300. 3300 [153][200](CD$,22)"  NEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWWAIT"
  301. 3310 [153]"   SPACE TO ERASE,  RETURN TO ABANDON "
  302. 3320 [153]"  NEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWWAITON";
  303. 3330 [142]
  304. 3400 [153][200](CD$,22)"  NEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWWAIT"
  305. 3410 [153]"   SPACE TO INDEX,  RETURN TO ABANDON "
  306. 3420 [153]"  NEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWWAITON";
  307. 3430 [142]
  308.